home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Generous Efforts of Many
/
gemcd.zip
/
GEM.CD.A.po
/
FEATURES:BEAGLE
/
BEAGLE.BAG.SHK
/
BEAGLE.BAG
/
BABY NAMES.bas
next >
Wrap
BASIC Source File
|
2000-01-01
|
1KB
|
17 lines
10 REM <CTRL-M><CTRL-M>BABY NAMES<CTRL-M>BY BERT KERSEY<CTRL-M>BEAGLE BROS<CTRL-M><CTRL-M>
20 TEXT : HOME : NORMAL : ONERR GOTO 63900
40 V$ = "AEIOU":C$ = "BCDFGHJKLMNPQRSTVWXYZ"
50 PRINT "100 NAMES FOR BABY:"
60 FOR I = 1 TO 40: PRINT "-";: NEXT
70 FOR KID = 1 TO 99
80 A = INT( RND(1) *21) +1:B = INT( RND(1) *5) +1:C = INT( RND(1) *21) +1:D = INT( RND(1) *5) +1:E = INT( RND(1) *21) +1
90 PRINT MID$ (C$,A,1); MID$ (V$,B,1); MID$ (C$,C,1); MID$ (C$,C,1);
93 IF INT( RND(1) *2) = 0 THEN PRINT "Y ";: GOTO 100
94 PRINT MID$ (V$,D,1); MID$ (C$,E,1);"Y ";
100 NEXT KID: PRINT "GEORGE": FOR I = 1 TO 40: PRINT "-";: NEXT
110 FOR I = 1 TO 2000: NEXT : VTAB 24: HTAB 1: PRINT "ANY KEY:";: GET A$: PRINT A$;: HTAB 1: CALL -958
63900 NORMAL : PRINT : HTAB 5: PRINT "BEAGLE BAG": HTAB 5: PRINT "------------------"
63910 PRINT "<M> MENU": PRINT "<C> SEE MORE NAMES": PRINT "<Q> QUIT": HTAB 5: PRINT "------------------": PRINT " SELECT:";: GET A$: PRINT A$: IF A$ = "Q" THEN END
63920 IF A$ = "M" THEN PRINT CHR$(4);"RUN SHORT MENU"
63930 IF A$ = "C" THEN RUN
63940 GOTO 63900